object Deprecia: TDeprecia
  Left = 40
  Top = 35
  Width = 1205
  Height = 764
  BorderIcons = []
  Caption = 'Deprecia'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 402
    Width = 523
    Height = 20
    Caption = 'Seleciona a conta para onde a deprecia'#231#227'o ir'#225': Prejuizo ou Lucro'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label3: TLabel
    Left = 8
    Top = 16
    Width = 53
    Height = 13
    Caption = 'Empresa:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 432
    Top = 16
    Width = 169
    Height = 16
    Caption = 'Data do bem mais velho'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 10
    Top = 530
    Width = 38
    Height = 13
    Caption = 'Debito'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label7: TLabel
    Left = 218
    Top = 530
    Width = 41
    Height = 13
    Caption = 'Credito'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label5: TLabel
    Left = 402
    Top = 530
    Width = 30
    Height = 13
    Caption = 'Valor'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object CheckBox1: TCheckBox
    Left = 544
    Top = 424
    Width = 97
    Height = 17
    Caption = 'Filtro'
    Checked = True
    State = cbChecked
    TabOrder = 12
    Visible = False
    OnClick = CheckBox1Click
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 689
    Height = 321
    DataSource = DataSource1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object Button1: TButton
    Left = 8
    Top = 368
    Width = 121
    Height = 25
    Caption = 'Fazer Altera'#231#245'es'
    TabOrder = 2
    Visible = False
    OnClick = Button1Click
  end
  object Date1: TDateTimePicker
    Left = 136
    Top = 368
    Width = 89
    Height = 21
    Date = 41145.556229375000000000
    Time = 41145.556229375000000000
    TabOrder = 3
    Visible = False
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 424
    Width = 529
    Height = 105
    DataSource = DataSource2
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    Columns = <
      item
        Expanded = False
        FieldName = 'codic'
        Title.Caption = 'Codigo'
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nomec'
        Title.Caption = 'Conta'
        Width = 323
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rel_satua'
        Title.Caption = 'Saldo'
        Width = 93
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 64
    Top = 8
    Width = 41
    Height = 21
    TabOrder = 0
    Text = '0000'
    OnChange = Edit1Change
    OnEnter = Edit1Enter
    OnExit = Edit1Exit
  end
  object DBEdit1: TDBEdit
    Left = 112
    Top = 8
    Width = 313
    Height = 21
    DataField = 'nome_empresa'
    DataSource = base.DSempresas
    Enabled = False
    TabOrder = 5
  end
  object DBEdit2: TDBEdit
    Left = 608
    Top = 8
    Width = 89
    Height = 21
    DataField = 'xdaq'
    DataSource = DataSource5
    Enabled = False
    TabOrder = 6
  end
  object Button2: TButton
    Left = 8
    Top = 571
    Width = 529
    Height = 25
    Caption = 'Transferencia para Prejuizo Automatico'
    TabOrder = 7
    Visible = False
    OnClick = Button2Click
  end
  object DBLookupListBox1: TDBLookupListBox
    Left = 8
    Top = 544
    Width = 193
    Height = 20
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    KeyField = 'nomec'
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 8
    Visible = False
  end
  object Edit2: TEdit
    Left = 400
    Top = 544
    Width = 137
    Height = 21
    TabOrder = 9
    Text = '0,00'
    Visible = False
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 208
    Top = 544
    Width = 185
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    KeyField = 'nomec'
    ListSource = DataSource6
    ParentFont = False
    TabOrder = 10
    Visible = False
  end
  object Panel1: TPanel
    Left = 8
    Top = 40
    Width = 697
    Height = 665
    TabOrder = 11
    object Label4: TLabel
      Left = 376
      Top = 9
      Width = 222
      Height = 16
      Caption = 'Fichas com problemas, verificar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 8
      Top = 160
      Width = 24
      Height = 13
      Caption = 'Taxa'
    end
    object Label9: TLabel
      Left = 8
      Top = 178
      Width = 497
      Height = 16
      Caption = 
        'Fichas com problemas de Taxa diferente do Ativo Imobilizado, ver' +
        'ificar:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 8
      Top = 346
      Width = 167
      Height = 16
      Caption = 'Buscar Ficha/Descri'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 8
      Top = 376
      Width = 26
      Height = 13
      Caption = 'Ficha'
      FocusControl = DBEdit5
    end
    object Label12: TLabel
      Left = 8
      Top = 416
      Width = 20
      Height = 13
      Caption = 'xdf1'
      FocusControl = DBMemo1
    end
    object Label13: TLabel
      Left = 88
      Top = 376
      Width = 72
      Height = 13
      Caption = 'Data Aquisi'#231#227'o'
      FocusControl = DBEdit6
    end
    object Label14: TLabel
      Left = 200
      Top = 376
      Width = 101
      Height = 13
      Caption = 'Data Ultima Corre'#231#227'o'
      FocusControl = DBEdit7
    end
    object Label15: TLabel
      Left = 448
      Top = 376
      Width = 63
      Height = 13
      Caption = 'Valor do Bem'
      FocusControl = DBEdit8
    end
    object Label16: TLabel
      Left = 560
      Top = 376
      Width = 121
      Height = 13
      Caption = 'Valor do Bem Depreciado'
      FocusControl = DBEdit9
    end
    object Label17: TLabel
      Left = 320
      Top = 376
      Width = 67
      Height = 13
      Caption = 'Data da Baixa'
      FocusControl = DBEdit10
    end
    object Label18: TLabel
      Left = 8
      Top = 496
      Width = 216
      Height = 13
      Caption = 'Valor Depreciado at'#233' Ultimo Exercicio'
      FocusControl = DBEdit5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label19: TLabel
      Left = 8
      Top = 536
      Width = 176
      Height = 13
      Caption = 'Valor Depreciado ano Corrente'
      FocusControl = DBEdit5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label20: TLabel
      Left = 8
      Top = 576
      Width = 83
      Height = 13
      Caption = 'Valor da Baixa'
      FocusControl = DBEdit5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid4: TDBGrid
      Left = 8
      Top = 8
      Width = 353
      Height = 137
      DataSource = DataSource7
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'codic'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'nomec'
          Visible = True
        end>
    end
    object DBGrid3: TDBGrid
      Left = 376
      Top = 32
      Width = 313
      Height = 140
      DataSource = DataSource4
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'xcf'
          Title.Caption = 'Ficha'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xvco'
          Title.Caption = 'UFIR'
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xtd'
          Title.Caption = 'Taxa'
          Width = 87
          Visible = True
        end>
    end
    object Edit3: TEdit
      Left = 40
      Top = 152
      Width = 65
      Height = 21
      TabOrder = 2
    end
    object Button3: TButton
      Left = 112
      Top = 152
      Width = 249
      Height = 21
      Caption = 'Verificar'
      TabOrder = 3
      OnClick = Button3Click
    end
    object DBGrid5: TDBGrid
      Left = 8
      Top = 200
      Width = 681
      Height = 129
      DataSource = DataSource8
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 4
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'xcf'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xcca'
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xdaq'
          Width = 121
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xvab'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xvco'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xtd'
          Visible = True
        end>
    end
    object DBEdit3: TDBEdit
      Left = 912
      Top = 352
      Width = 121
      Height = 21
      DataField = 'COLUMN1'
      TabOrder = 5
    end
    object DBEdit4: TDBEdit
      Left = 912
      Top = 376
      Width = 121
      Height = 21
      DataField = 'COLUMN1'
      TabOrder = 6
    end
    object Edit4: TEdit
      Left = 184
      Top = 345
      Width = 233
      Height = 21
      TabOrder = 7
      OnChange = Edit4Change
    end
    object DBEdit5: TDBEdit
      Left = 8
      Top = 392
      Width = 69
      Height = 21
      DataField = 'xcf'
      DataSource = DataSource8
      TabOrder = 8
    end
    object DBMemo1: TDBMemo
      Left = 8
      Top = 432
      Width = 681
      Height = 57
      DataField = 'xdf1'
      DataSource = DataSource8
      TabOrder = 9
    end
    object DBEdit6: TDBEdit
      Left = 88
      Top = 392
      Width = 97
      Height = 21
      DataField = 'xdaq'
      DataSource = DataSource8
      TabOrder = 10
    end
    object DBEdit7: TDBEdit
      Left = 200
      Top = 392
      Width = 113
      Height = 21
      DataField = 'xdab'
      DataSource = DataSource8
      TabOrder = 11
    end
    object DBEdit8: TDBEdit
      Left = 448
      Top = 392
      Width = 97
      Height = 21
      DataField = 'xvab'
      DataSource = DataSource8
      TabOrder = 12
    end
    object DBEdit9: TDBEdit
      Left = 560
      Top = 392
      Width = 121
      Height = 21
      DataField = 'xvatudepr'
      DataSource = DataSource8
      TabOrder = 13
    end
    object DBNavigator1: TDBNavigator
      Left = 424
      Top = 344
      Width = 144
      Height = 21
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 14
    end
    object DBEdit10: TDBEdit
      Left = 320
      Top = 392
      Width = 113
      Height = 21
      DataField = 'xdtbaixa'
      DataSource = DataSource8
      TabOrder = 15
    end
    object Edit5: TEdit
      Left = 8
      Top = 512
      Width = 121
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 16
      Text = '0,00'
    end
    object Button5: TButton
      Left = 8
      Top = 623
      Width = 121
      Height = 21
      Caption = 'Processar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 17
      OnClick = Button5Click
    end
    object Edit6: TEdit
      Left = 8
      Top = 552
      Width = 121
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 18
      Text = '0,00'
    end
    object Edit7: TEdit
      Left = 8
      Top = 592
      Width = 121
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 19
      Text = '0,00'
    end
    object Memo1: TMemo
      Left = 264
      Top = 496
      Width = 425
      Height = 161
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 20
      WordWrap = False
    end
  end
  object Edit8: TEdit
    Left = 832
    Top = 400
    Width = 121
    Height = 21
    TabOrder = 13
    Text = 
      'select * from conta where (((codic >= '#39'1203000000'#39' ) and (codic ' +
      '< '#39'1203180000'#39')) or ((codic >= '#39'1204000000'#39' ) and (codic < '#39'1204' +
      '090000'#39'))) and xcr <> '#39'0'#39
    Visible = False
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 896
    Top = 264
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 928
    Top = 264
  end
  object ADOQuery1: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      'select * from lancc where ndoc = '#39'ATIM'#39)
    Left = 896
    Top = 232
    object ADOQuery1sequencia: TAutoIncField
      FieldName = 'sequencia'
      ReadOnly = True
    end
    object ADOQuery1data: TDateTimeField
      FieldName = 'data'
    end
    object ADOQuery1ndoc: TStringField
      FieldName = 'ndoc'
      Size = 4
    end
    object ADOQuery1clp: TStringField
      FieldName = 'clp'
      Size = 4
    end
    object ADOQuery1ccdebito: TStringField
      FieldName = 'ccdebito'
      Size = 10
    end
    object ADOQuery1cccredito: TStringField
      FieldName = 'cccredito'
      Size = 10
    end
    object ADOQuery1valor: TBCDField
      FieldName = 'valor'
      Precision = 18
      Size = 2
    end
    object ADOQuery1hist: TStringField
      FieldName = 'hist'
      Size = 3
    end
    object ADOQuery1comphist: TMemoField
      FieldName = 'comphist'
      BlobType = ftMemo
    end
    object ADOQuery1partida: TStringField
      FieldName = 'partida'
      Size = 1
    end
    object ADOQuery1custo: TStringField
      FieldName = 'custo'
      Size = 3
    end
    object ADOQuery1custocr: TStringField
      FieldName = 'custocr'
      Size = 3
    end
    object ADOQuery1xid_nota: TIntegerField
      FieldName = 'xid_nota'
    end
    object ADOQuery1xtipo_nota: TStringField
      FieldName = 'xtipo_nota'
      Size = 3
    end
  end
  object ADOQuery2: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      'select * from conta where '
      
        '((codic >= '#39'2302000000'#39') and (codic <= '#39'3000000000'#39')) and (xcr <' +
        '> 0)  and (rel_satua <> 0)'
      '')
    Left = 928
    Top = 232
    object ADOQuery2codic: TStringField
      FieldName = 'codic'
      Size = 10
    end
    object ADOQuery2xcr: TIntegerField
      FieldName = 'xcr'
    end
    object ADOQuery2nomec: TStringField
      FieldName = 'nomec'
      Size = 40
    end
    object ADOQuery2saldo: TBCDField
      FieldName = 'saldo'
      Precision = 18
      Size = 2
    end
    object ADOQuery2sintetico: TStringField
      FieldName = 'sintetico'
      Size = 1
    end
    object ADOQuery2balanco: TStringField
      FieldName = 'balanco'
      Size = 1
    end
    object ADOQuery2xlalur: TStringField
      FieldName = 'xlalur'
      Size = 1
    end
    object ADOQuery2rel_sante: TBCDField
      FieldName = 'rel_sante'
      Precision = 18
      Size = 2
    end
    object ADOQuery2rel_satua: TBCDField
      FieldName = 'rel_satua'
      Precision = 18
      Size = 2
    end
    object ADOQuery2rel_tsd: TBCDField
      FieldName = 'rel_tsd'
      Precision = 18
      Size = 2
    end
    object ADOQuery2rel_tsc: TBCDField
      FieldName = 'rel_tsc'
      Precision = 18
      Size = 2
    end
    object ADOQuery2rel_cadsn: TStringField
      FieldName = 'rel_cadsn'
      Size = 1
    end
    object ADOQuery2rel_saldodeb: TBCDField
      FieldName = 'rel_saldodeb'
      Precision = 18
      Size = 2
    end
    object ADOQuery2rel_saldocre: TBCDField
      FieldName = 'rel_saldocre'
      Precision = 18
      Size = 2
    end
    object ADOQuery2xind_nat: TStringField
      FieldName = 'xind_nat'
      Size = 1
    end
    object ADOQuery2xanalise_critica: TStringField
      FieldName = 'xanalise_critica'
      Size = 1
    end
    object ADOQuery2xcodicref: TStringField
      FieldName = 'xcodicref'
    end
    object ADOQuery2xind_nat_sped: TStringField
      FieldName = 'xind_nat_sped'
      Size = 1
    end
    object ADOQuery2xstatus: TStringField
      FieldName = 'xstatus'
      Size = 1
    end
    object ADOQuery2xinativo: TStringField
      FieldName = 'xinativo'
      Size = 1
    end
  end
  object ADOQuery3: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ativo where xvco <> '#39'1.0641'#39' or xtd = '#39'0'#39
      'order by xdaq')
    Left = 960
    Top = 232
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery3
    Left = 960
    Top = 264
  end
  object ADOQuery4: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      'select * from ativo '
      'order by xdaq')
    Left = 992
    Top = 232
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery4
    Left = 992
    Top = 264
  end
  object Table1: TADOTable
    Connection = base.LED
    TableName = 'lancc'
    Left = 1120
    Top = 232
    object Table1sequencia: TAutoIncField
      FieldName = 'sequencia'
      ReadOnly = True
    end
    object Table1data: TDateTimeField
      FieldName = 'data'
    end
    object Table1ndoc: TStringField
      FieldName = 'ndoc'
      Size = 4
    end
    object Table1clp: TStringField
      FieldName = 'clp'
      Size = 4
    end
    object Table1ccdebito: TStringField
      FieldName = 'ccdebito'
      Size = 10
    end
    object Table1cccredito: TStringField
      FieldName = 'cccredito'
      Size = 10
    end
    object Table1valor: TBCDField
      FieldName = 'valor'
      Precision = 18
      Size = 2
    end
    object Table1hist: TStringField
      FieldName = 'hist'
      Size = 3
    end
    object Table1comphist: TMemoField
      FieldName = 'comphist'
      BlobType = ftMemo
    end
    object Table1partida: TStringField
      FieldName = 'partida'
      Size = 1
    end
    object Table1custo: TStringField
      FieldName = 'custo'
      Size = 3
    end
    object Table1custocr: TStringField
      FieldName = 'custocr'
      Size = 3
    end
    object Table1xid_nota: TIntegerField
      FieldName = 'xid_nota'
    end
    object Table1xtipo_nota: TStringField
      FieldName = 'xtipo_nota'
      Size = 3
    end
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery5
    Left = 1024
    Top = 264
  end
  object ADOQuery5: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      'select * from conta where '
      
        '((codic >= '#39'230300000'#39') and (codic <= '#39'3000000000'#39')) and (xcr <>' +
        ' 0)  ')
    Left = 1024
    Top = 232
    object ADOQuery5codic: TStringField
      FieldName = 'codic'
      Size = 10
    end
    object ADOQuery5xcr: TIntegerField
      FieldName = 'xcr'
    end
    object ADOQuery5nomec: TStringField
      FieldName = 'nomec'
      Size = 40
    end
    object ADOQuery5saldo: TBCDField
      FieldName = 'saldo'
      Precision = 18
      Size = 2
    end
    object ADOQuery5sintetico: TStringField
      FieldName = 'sintetico'
      Size = 1
    end
    object ADOQuery5balanco: TStringField
      FieldName = 'balanco'
      Size = 1
    end
    object ADOQuery5xlalur: TStringField
      FieldName = 'xlalur'
      Size = 1
    end
    object ADOQuery5rel_sante: TBCDField
      FieldName = 'rel_sante'
      Precision = 18
      Size = 2
    end
    object ADOQuery5rel_satua: TBCDField
      FieldName = 'rel_satua'
      Precision = 18
      Size = 2
    end
    object ADOQuery5rel_tsd: TBCDField
      FieldName = 'rel_tsd'
      Precision = 18
      Size = 2
    end
    object ADOQuery5rel_tsc: TBCDField
      FieldName = 'rel_tsc'
      Precision = 18
      Size = 2
    end
    object ADOQuery5rel_cadsn: TStringField
      FieldName = 'rel_cadsn'
      Size = 1
    end
    object ADOQuery5rel_saldodeb: TBCDField
      FieldName = 'rel_saldodeb'
      Precision = 18
      Size = 2
    end
    object ADOQuery5rel_saldocre: TBCDField
      FieldName = 'rel_saldocre'
      Precision = 18
      Size = 2
    end
    object ADOQuery5xind_nat: TStringField
      FieldName = 'xind_nat'
      Size = 1
    end
    object ADOQuery5xanalise_critica: TStringField
      FieldName = 'xanalise_critica'
      Size = 1
    end
    object ADOQuery5xcodicref: TStringField
      FieldName = 'xcodicref'
    end
    object ADOQuery5xind_nat_sped: TStringField
      FieldName = 'xind_nat_sped'
      Size = 1
    end
    object ADOQuery5xstatus: TStringField
      FieldName = 'xstatus'
      Size = 1
    end
    object ADOQuery5xinativo: TStringField
      FieldName = 'xinativo'
      Size = 1
    end
  end
  object ADOQuery6: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      
        'select sum(valor) from lancc where ccdebito <> '#39#39' and ndoc = '#39'AT' +
        'IM'#39)
    Left = 1120
    Top = 264
    object ADOQuery6COLUMN1: TBCDField
      FieldName = 'COLUMN1'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
  end
  object ADOQuery7: TADOQuery
    Connection = base.LED
    Parameters = <>
    SQL.Strings = (
      
        'select * from conta where (((codic >= '#39'1203000000'#39' ) and (codic ' +
        '< '#39'1203180000'#39')) or ((codic >= '#39'1204000000'#39' ) and (codic < '#39'1204' +
        '090000'#39'))) and xcr <> '#39'0'#39)
    Left = 1056
    Top = 232
    object ADOQuery7codic: TStringField
      FieldName = 'codic'
      Size = 10
    end
    object ADOQuery7xcr: TIntegerField
      FieldName = 'xcr'
    end
    object ADOQuery7nomec: TStringField
      FieldName = 'nomec'
      Size = 40
    end
    object ADOQuery7saldo: TBCDField
      FieldName = 'saldo'
      Precision = 18
      Size = 2
    end
    object ADOQuery7sintetico: TStringField
      FieldName = 'sintetico'
      Size = 1
    end
    object ADOQuery7balanco: TStringField
      FieldName = 'balanco'
      Size = 1
    end
    object ADOQuery7xlalur: TStringField
      FieldName = 'xlalur'
      Size = 1
    end
    object ADOQuery7rel_sante: TBCDField
      FieldName = 'rel_sante'
      Precision = 18
      Size = 2
    end
    object ADOQuery7rel_satua: TBCDField
      FieldName = 'rel_satua'
      Precision = 18
      Size = 2
    end
    object ADOQuery7rel_tsd: TBCDField
      FieldName = 'rel_tsd'
      Precision = 18
      Size = 2
    end
    object ADOQuery7rel_tsc: TBCDField
      FieldName = 'rel_tsc'
      Precision = 18
      Size = 2
    end
    object ADOQuery7rel_cadsn: TStringField
      FieldName = 'rel_cadsn'
      Size = 1
    end
    object ADOQuery7rel_saldodeb: TBCDField
      FieldName = 'rel_saldodeb'
      Precision = 18
      Size = 2
    end
    object ADOQuery7rel_saldocre: TBCDField
      FieldName = 'rel_saldocre'
      Precision = 18
      Size = 2
    end
    object ADOQuery7xind_nat: TStringField
      FieldName = 'xind_nat'
      Size = 1
    end
    object ADOQuery7xanalise_critica: TStringField
      FieldName = 'xanalise_critica'
      Size = 1
    end
    object ADOQuery7xcodicref: TStringField
      FieldName = 'xcodicref'
    end
    object ADOQuery7xind_nat_sped: TStringField
      FieldName = 'xind_nat_sped'
      Size = 1
    end
    object ADOQuery7xstatus: TStringField
      FieldName = 'xstatus'
      Size = 1
    end
    object ADOQuery7xinativo: TStringField
      FieldName = 'xinativo'
      Size = 1
    end
  end
  object DataSource7: TDataSource
    DataSet = ADOQuery7
    OnDataChange = DataSource7DataChange
    Left = 1056
    Top = 264
  end
  object ADOQuery8: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ativo')
    Left = 1088
    Top = 232
    object ADOQuery8xcf: TStringField
      FieldName = 'xcf'
      Size = 5
    end
    object ADOQuery8xcca: TStringField
      FieldName = 'xcca'
      Size = 10
    end
    object ADOQuery8xdf1: TMemoField
      FieldName = 'xdf1'
      BlobType = ftMemo
    end
    object ADOQuery8xdaq: TDateTimeField
      FieldName = 'xdaq'
      EditMask = '00/00/0000'
    end
    object ADOQuery8xdab: TDateTimeField
      FieldName = 'xdab'
      EditMask = '00/00/0000'
    end
    object ADOQuery8xvab: TBCDField
      FieldName = 'xvab'
      DisplayFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xvco: TBCDField
      FieldName = 'xvco'
      Precision = 18
    end
    object ADOQuery8xqco: TBCDField
      FieldName = 'xqco'
      Precision = 18
    end
    object ADOQuery8xforn: TStringField
      FieldName = 'xforn'
      Size = 40
    end
    object ADOQuery8xdoc: TStringField
      FieldName = 'xdoc'
      Size = 10
    end
    object ADOQuery8xtd: TBCDField
      FieldName = 'xtd'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xtdd: TBCDField
      FieldName = 'xtdd'
      Precision = 18
    end
    object ADOQuery8xvatudepr: TBCDField
      FieldName = 'xvatudepr'
      DisplayFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xdtbaixa: TDateTimeField
      FieldName = 'xdtbaixa'
    end
    object ADOQuery8xtipo: TStringField
      FieldName = 'xtipo'
      Size = 1
    end
    object ADOQuery8xcf_vinc: TStringField
      FieldName = 'xcf_vinc'
      Size = 5
    end
    object ADOQuery8xnumparc: TSmallintField
      FieldName = 'xnumparc'
    end
    object ADOQuery8xcusto: TStringField
      FieldName = 'xcusto'
      Size = 1
    end
    object ADOQuery8xvida_util: TSmallintField
      FieldName = 'xvida_util'
    end
    object ADOQuery8xnat_bc_cred: TStringField
      FieldName = 'xnat_bc_cred'
      Size = 2
    end
    object ADOQuery8xident_bem: TStringField
      FieldName = 'xident_bem'
      Size = 2
    end
    object ADOQuery8xind_orig_cred: TStringField
      FieldName = 'xind_orig_cred'
      Size = 1
    end
    object ADOQuery8xutil_bem: TStringField
      FieldName = 'xutil_bem'
      Size = 1
    end
    object ADOQuery8xvl_oper_dep: TBCDField
      FieldName = 'xvl_oper_dep'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xparc_enc_dep_bc: TBCDField
      FieldName = 'xparc_enc_dep_bc'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xcst_pis: TStringField
      FieldName = 'xcst_pis'
      Size = 2
    end
    object ADOQuery8xaliq_pis: TBCDField
      FieldName = 'xaliq_pis'
      Precision = 18
    end
    object ADOQuery8xvl_pis: TBCDField
      FieldName = 'xvl_pis'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xcst_cofins: TStringField
      FieldName = 'xcst_cofins'
      Size = 2
    end
    object ADOQuery8xaliq_cofins: TBCDField
      FieldName = 'xaliq_cofins'
      Precision = 18
    end
    object ADOQuery8xvl_cofins: TBCDField
      FieldName = 'xvl_cofins'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xmes_oper_aquis: TStringField
      FieldName = 'xmes_oper_aquis'
      Size = 7
    end
    object ADOQuery8xvl_oper_aquis: TBCDField
      FieldName = 'xvl_oper_aquis'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xparc_aquis_bc: TBCDField
      FieldName = 'xparc_aquis_bc'
      Precision = 18
      Size = 2
    end
    object ADOQuery8xind_nr_parc: TStringField
      FieldName = 'xind_nr_parc'
      Size = 1
    end
  end
  object DataSource8: TDataSource
    DataSet = ADOQuery8
    OnDataChange = DataSource8DataChange
    Left = 1088
    Top = 264
  end
  object baixa: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from baixa')
    Left = 1088
    Top = 184
  end
  object DataSource3: TDataSource
    DataSet = baixa
    Left = 1128
    Top = 184
  end
  object conta: TADOQuery
    Connection = base.LED
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from baixa')
    Left = 1088
    Top = 144
  end
  object relatorio: TfrxReport
    Version = '4.0.11'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 42026.678654074100000000
    ReportOptions.LastChange = 42026.686407511570000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 768
    Top = 296
    Datasets = <>
    Variables = <
      item
        Name = ' New Category1'
        Value = Null
      end
      item
        Name = 'hist'
        Value = Null
      end>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      object ReportTitle1: TfrxReportTitle
        Height = 975.118740000000000000
        Top = 18.897650000000000000
        Width = 793.701300000000000000
        object Memo1: TfrxMemoView
          Left = 15.118120000000000000
          Top = 102.047310000000000000
          Width = 744.567410000000000000
          Height = 910.866730000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8 = (
            '[hist]')
          ParentFont = False
        end
        object Memo2: TfrxMemoView
          Left = 68.031540000000000000
          Top = 18.897650000000000000
          Width = 608.504330000000000000
          Height = 45.354360000000000000
          DisplayFormat.DecimalSeparator = ','
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = []
          HAlign = haCenter
          Memo.UTF8 = (
            'RELATORIO DE BAIXA DE ATIVO IMOBILIZADO')
          ParentFont = False
        end
        object Shape1: TfrxShapeView
          Width = 793.701300000000000000
          Height = 90.708720000000000000
        end
      end
    end
  end
  object frxPDFExport1: TfrxPDFExport
    UseFileCache = True
    ShowProgress = True
    PrintOptimized = False
    Outline = False
    Author = 'FastReport'
    Subject = 'FastReport PDF export'
    Background = False
    Creator = 'FastReport (http://www.fast-report.com)'
    HTMLTags = True
    Left = 800
    Top = 296
  end
end
